100 REM SOURCE TO COMPILED BREAK-FAST.  DESIGN ENHANCEMENTS BY LOADSTAR
110 POKE787,1:GOSUB750:POKE53272,21:PRINT"":CLR:REM  C1988 G. DE BLQIS
120 FORX=1TO38:A$=A$+"[207]":NEXT:POKE53280,6:POKE53281,0:POKE646,0:DX%=1:DY%=1:PX%=20
130 PY%=18:PRINT"[147][159]"TAB(14);"BREAK-FASTER":PP%=32:PP$="[192][192][192][192][192]":A$=""+A$+""
140 S=54272:POKES+5,3:POKES+6,3:IFPEEK(787)=1THENSC=20000
150 IFPEEK(787)>1THENSC=PEEK(2040)*256+PEEK(2041)+20000
160 PRINT"";A$;"";A$;:VP=.95:IFPEEK(787)=2THENVP=.9
170 IFPEEK(787)=3THENVP=.85
180 IFPEEK(787)=4THENVP=.8
190 IFPEEK(787)=5THENVP=.66666
200 IFPEEK(787)=6THENVP=.5
210 IFPEEK(787)=7THENVP=.33333
220 IFPEEK(787)=8THENVP=.25
230 IFPEEK(787)=9THENVP=.2
240 IFPEEK(787)=10THENVP=.1
250 PRINT"[153]";A$;"[158]";A$;"";A$;"[144]";
260 PRINT"";A$;"";A$;
270 PRINT"[153]";A$;"[158]";A$;"";A$;"[144]":GOSUB680
280 BM%=99:IFPEEK(787)>1THENGOSUB780
290 IFPEEK(787)>1THENPRINT""TAB(28)"SPOILER:"
300 POKE198,0:POKE214,22:PRINT:PRINTTAB(PP%);PP$:ZZ%=PX%+40*PY%
310 IFPEEK(653)=7ANDPEEK(197)=1THENPOKE787,10
320 IFPEEK(197)=62THEN520
330 IFSC=0THEN520
340 IFBP%>30+RND(TI)*21THENGOSUB1410
350 IFZZ%<1000THENPOKE1024+ZZ%,81:POKE55296+ZZ%,1
360 IFPEEK(653)=1THEN360
370 IFLP<>PP%THENPOKE214,22:PRINT:PRINTTAB(LP)"       ";
380 LP=PP%:X=(PEEK(56320)AND15):IFX=11ORPEEK(197)=47ORPEEK(653)=2THENPP%=PP%-2.5
390 IFPP%<1THENPP%=1
400 IFX=7ORPEEK(197)=44ORPEEK(197)=2THENPP%=PP%+2.5:IFPP%>35THENPP%=34
410 POKE214,22:PRINT:PRINTTAB(PP%);PP$
420 IFZZ%<1000ANDZZ%>1THENPOKE1024+ZZ%,32
430 PX%=PX%+DX%:IFPX%>38THENDX%=-DX%:PX%=38
440 IFPX%<1THENDX%=-DX%:PX%=1
450 PY%=PY%+DY%:IFPY%<=1THENDY%=-DY%
460 ZZ%=PEEK(1024+PX%+40*PY%)
470 IFPY%>23THENSC=INT(VP*SC):BP%=0:GOSUB680:GOSUB690:DY%=-DY%:GOSUB780:GOTO300
480 IFZZ%=207THENSC=SC+100*PEEK(787):BP%=BP%+1:H=H+1:GOSUB680:GOSUB1370:DY%=-DY%:GOTO300
490 IFH=380THENGOSUB1440:POKE2040,SC/256:POKE2041,SC-INT((SC/256))*256:RUN120
500 IFZZ%<>81ANDZZ%<>32THENDY%=-DY%:GOSUB1340:GOTO300
510 GOTO300
520 PRINT"[147]":X$=CHR$(13)
530 IFPEEK(787)=11THENPRINT"WOW!  YOU DID IT!  YOU MADE LEVEL TEN!"
540 IFPEEK(787)=11THENPRINT"YOU BEAT THE BALL!":GOTO560
550 PRINT"THE GAME ENDS AT LEVEL[158]"PEEK(787)
560 PRINT"YOUR SCORE IS[158]"SC""
570 IFSC>=20000THENPRINT"AND HEY!  YOU MADE IT THIS FAR WITHOUT"X$"LOSING POINTS
580 [139]SC[179]20000[167][153]"BUT YOU DIDN'T BREAK EVEN.  C'EST LA VIE!"
590 [151]214,20:[153]:[153]"DO YOU WANT TO PLAY AGAIN? (Y/N)":[151]2048,0
600 [161]A$:[139]A$[178]"Y"[167][138]
610 [139]A$[178]"N"[167] 630
620 [137]600
630 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER:[160]15
640 [139] ER[179][177]63 [167] [153]"LOAD":[128]
650 A$[178]"HELLO CONNECT":Q$[178][199](34)
660 [153]"STOPLOADLOAD"Q$A$Q$",8"
670 [153]"RUN":[151]631,13:[151]632,13:[151]198,2:[128]
680 [153]"SCORE:        "SC:[142]
690 [141]1380
700 DD[178][187]([187](TI)[172]50)[172]11:[139]DD[179][178]5[167][141]730:[142]
710 [139]DD[177]5[167][139]DX%[179]1[167]DX%[178][171]2:[142]
720 DX%[178]2:[142]
730 [139]DX%[179]0[167]DX%[178][171]1:[142]
740 DX%[178]1:[142]
750 [151]53280, 0:[151]53281, 0:[153]"LOAD";:[141]1090
760 [161]A$:[139]A$[179][177]" "[167]760
770 [141]830:[153]"LOAD"[199](142):[142]
780 BM%[178]BM%[170]1:[139][194](787)[177]1[167][153]""[163]36)"     "[163]36)100[171]BM%
790 [139]BM%[179]100[176][194](787)[178]1[167][142]
800 [151]214,13:[153]:X$[178]"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)"
810 [129]I[178]1[164]6:[153]"OPEN "[200](X$,20[171]I)[163]19[170]I)[200](X$,20[171]I):[130]:BM%[178]0
820 [151]646,1:[142]
830 [153]"LOADWAIT        LISTB R E A K - F A S T E R":[151]53272,21
840 [153]"        TOTOTOTOANDANDANDPOSPOSPOSNEWNEWNEWPOSPOSPOSANDANDANDTOTOTOTO"
850 [153]"         PRINT#      THE RULES      "
860 [153]"        POKETAB(TAB(TAB(TAB(USRUSRUSRFREFREFRENEWNEWNEWWAITFREFREFREUSRUSRUSRTAB(TAB(TAB(TAB("
870 [153]
880 [153]"TAB(TAB(TAB(TAB(TAB(PRINT#TAB(TAB(TAB(TAB(TAB(TAB(LISTTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(LISTTAB(TAB(TAB(TAB(TAB(PRINT#TAB(TAB(TAB(TAB(TAB(TAB(POKETAB(TAB(TAB(TAB(TAB(TAB(";
890 [153]" PRINT#IN THIS COMPILED VERSION OF BREAK-FAST"
900 [153]" YOU START WITH A WHOPPING 20000 POINTS."
910 [153]"ON YOUR SCORE WILL INCREMENT BY 100 FOR"
920 [153]" EACH BLOCK BUSTED."
930 [153]" LISTYOUR SCORE WILL DECREASE BY 5 PERCENT"
940 [153]" EACH TIME THE BALL HITS BOTTOM.  WATCH"
950 [153]" OUT!  DON'T LET THE PADDLE DRIBBLE"
960 [153]" THE BALL!  YOU'LL LOSE POINTS QUICKLY."
970 [153]" THE GAME ENDS WHEN YOU HAVE NO POINTS!PRINT#"
980 [153]" LEVEL TWO OF THE GAME STARTS AFTER ALL"
990 [153]" BLOCKS ARE GONE.  THE SPOILER LISTBLOCKS"
1000 [153]" WILL REAPPEAR LISTAFTER 100 LISTMISSES."
1010 [153]
1020 [153]"  C=WAIT MOVES LEFT / CRSR-RIGHTWAIT MOVES RIGHT"
1030 [153]"ON     JOYSTICK AND <WAIT >WAIT KEYS ALSO WORK"
1040 [153]"        SHIFT TO PAUSE/Q TO QUIT"
1050 [153]"   OPEN PRESS SPACE TO PLAY BREAK-FASTER ";
1060 [153]"";:[151]198,0
1070 [161]A$:[139]A$[179][177]" "[167]1070
1080 [153]"LOAD":[141]1490:[142]
1090 [153]"LOAD"
1100 [153]"       LISTNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW"
1110 [153]"       PRINT#    loadstar presents     "
1120 [153]"       POKENEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW"
1130 [153]
1140 [153]
1150 [153]
1160 [153]"         *                    WAITRND"
1170 [153]"              break-faster     "
1180 [153]"                               "
1190 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(CLOSE CLOSEdEMO OF cOMPILEDCLOSE  WAITTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(";
1200 [153]"         CLOSE                    CLOSE"
1210 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(  bREAK-fAST (basic)  WAITTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(";
1220 [153]"                              CLOSE"
1230 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(                     CLOSEWAITTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(";
1240 [153]"             bY g. dE bLOIS    "
1250 [153]"         LOG                    WAITCOS"
1260 [153]
1270 [153]"    PRINT#cOMPILED WITH basic 64 BY LISTabacus"
1280 [153]"   TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
1290 [153]"       NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW"
1300 [153]"       PRINT# press spaceCLOSEtoCLOSEcontinue  "
1310 [153]"       POKEFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE"
1320 [153]
1330 [153]"";:[151]198,0:[142]
1340 [151]54296,15:[151]S[170]1,80:[151]S[170]4,17:XT[178]TI
1350 [139]TI[171]XT[179]2[167]1350
1360 [151]S[170]4,16:[142]
1370 [151]54296,15:[151]S[170]1,160:[151]S[170]4,17:XT[178]TI:[137]1350
1380 [151]54296,15:[151]S[170]1,40:[151]S[170]4,17:XT[178]TI:[137]1350
1390 [153][194](197):[137]1390
1400 S[178]54272
1410 [129]XX[178]0[164]2000[169]40:[151]53281,XX[173]10:[151]53280,(XX[170]1)[173]10:SC[178]SC[170]50[172][194](787)
1420 [141]1370:[141]1430:[130]:[151]53281,0:[151]53280,6:BP%[178]0:[142]
1430 [153]"BONUS!        "SC:[142]
1440 XT[178][194](787):[139]XT[179]255[167][151]787,XT[170]1
1450 [139][194](787)[178]11[167]520
1460 [141]1470:[142]
1470 [153]"LOADPOINTS EARNED:SYS"SC
1480 [153]"BONUS FOR ROUND"[194](787)[171]1":SYS 20000":[151]198,0
1490 [153]"EACH BLOCK NOW WORTHSYS"100[172]([194](787)[170]1)
1500 [153]"EACH BONUS NOW WORTHSYS"2000[172]([194](787)[170]1)
1510 [139][194](787)[178]1[167][153]"YOU LOSE SYS5% OF YOUR POINTS EACH MISS!"
1520 [139][194](787)[177]1[167][153]"EACH MISS NOW COSTS:SYS ";
1530 [139][194](787)[178]2[167][153]"10%"
1540 [139][194](787)[178]3[167][153]"15%"
1550 [139][194](787)[178]4[167][153]"20%"
1560 [139][194](787)[178]5[167][153]"33%"
1570 [139][194](787)[178]6[167][153]"50%"
1580 [139][194](787)[178]7[167][153]"66%"
1590 [139][194](787)[178]8[167][153]"75%"
1600 [139][194](787)[178]9[167][153]"80%"
1610 [139][194](787)[178]10[167][153]"90%"
1620 [139][194](787)[177]1[167][153]"SYSWARNING! OPENSPOILERSWAIT ARE ACTIVE!"
1630 [153]"THE PENALTY SYSINCREASES EVERY LEVEL."
1640 [153]"CAN YOU MAKE IT THROUGH LEVEL SYS10?"
1650 [153]"       PRESS SYS CTRL WAIT TO CONTINUE..."
1660 [139][194](653)[179][177]4[167]1660
1670 [151]198,0:[142]
1680 [153][194](653):[137]1680